home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Exec / Interrupts.asm < prev    next >
Assembly Source File  |  1990-05-11  |  1KB  |  81 lines
  1. *
  2. *    Interrupts.asm of PCQ Pascal
  3. *
  4. *    The glue for the routines defined in Include/Exec/Interrupts.i
  5. *    is in this file
  6. *
  7.  
  8.     SECTION    PCQ_Runtime,CODE
  9.  
  10.     XREF    _AbsExecBase
  11.  
  12.     XREF    _LVOAddIntServer
  13.     XDEF    _AddIntServer
  14. _AddIntServer
  15.     move.l    4(sp),a1
  16.     move.l    8(sp),d0
  17.     move.l    _AbsExecBase,a6
  18.     jmp    _LVOAddIntServer(a6)
  19.  
  20.     XREF    _LVOCause
  21.     XDEF    _Cause
  22. _Cause
  23.     move.l    4(sp),a1
  24.     move.l    _AbsExecBase,a6
  25.     jmp    _LVOCause(a6)
  26.  
  27.     XREF    _LVODisable
  28.     XDEF    _Disable
  29. _Disable
  30.     move.l    _AbsExecBase,a6
  31.     jmp    _LVODisable(a6)
  32.  
  33.     XREF    _LVOEnable
  34.     XDEF    _Enable
  35. _Enable
  36.     move.l    _AbsExecBase,a6
  37.     jmp    _LVOEnable(a6)
  38.  
  39.     XREF    _LVOForbid
  40.     XDEF    _Forbid
  41. _Forbid
  42.     move.l    _AbsExecBase,a6
  43.     jmp    _LVOForbid(a6)
  44.  
  45.     XREF    _LVOPermit
  46.     XDEF    _Permit
  47. _Permit
  48.     move.l    _AbsExecBase,a6
  49.     jmp    _LVOPermit(a6)
  50.  
  51.     XREF    _LVORemIntServer
  52.     XDEF    _RemIntServer
  53. _RemIntServer
  54.     move.l    4(sp),a1
  55.     move.l    8(sp),d0
  56.     move.l    _AbsExecBase,a6
  57.     jmp    _LVORemIntServer(a6)
  58.  
  59.     XREF    _LVOSetIntVector
  60.     XDEF    _SetIntVector
  61. _SetIntVector
  62.     move.l    4(sp),a1
  63.     move.l    8(sp),d0
  64.     move.l    _AbsExecBase,a6
  65.     jmp    _LVOSetIntVector(a6)
  66.  
  67.     XREF    _LVOSuperState
  68.     XDEF    _SuperState
  69. _SuperState
  70.     move.l    _AbsExecBase,a6
  71.     jmp    _LVOSuperState(a6)
  72.  
  73.     XREF    _LVOUserState
  74.     XDEF    _UserState
  75. _UserState
  76.     move.l    4(sp),d0
  77.     move.l    _AbsExecBase,a6
  78.     jmp    _LVOUserState(a6)
  79.  
  80.     END
  81.